home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
COMAL
/
T-COMAL Today
/
(k)td.d64
/
proc.window'up
< prev
next >
Wrap
Text File
|
2007-02-28
|
492b
|
15 lines
0010 //
0020 ╨╥╧├ WINDOW'UP(BOTTOM,TOP) ├╠╧╙┼─
0030 ╒╙┼ SYSTEM
0040 ─╔═ SCREEN$ ╧╞ 1505, CHAR$ ╧╞ 3
0050 ╔╞ BOTTOM>0 ┴╬─ BOTTOM<TOP ┴╬─ TOP<26 ╘╚┼╬
0060 B:=(BOTTOM-1)*60; T:=(TOP-1)*60
0070 GETSCREEN(SCREEN$)
0080 SCREEN$(B+6:T+6):=SCREEN$(66+B:T+65)
0090 BACK'COLOR:=╧╥─(SCREEN$(2))
0100 CHAR$:=" "+├╚╥$(BACK'COLOR+BACK'COLOR*16)
0110 ╞╧╥ ROW#:=6+T ╘╧ 63+T ╙╘┼╨ 3 ─╧ SCREEN$(ROW#:ROW#+2):=CHAR$
0120 SETSCREEN(SCREEN$)
0130 ┼╬─╔╞
0140 ┼╬─╨╥╧├ WINDOW'UP